home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SKILLS.dir / 00064_Script_next q script < prev    next >
Text File  |  2001-09-05  |  670b  |  15 lines
  1. on mouseUp
  2.   global TEMPLATE1, KNOB1, minPos1, maxPos1,gNumQs
  3.   global maxscroll,minScroll,gCat,ScrollList
  4.   put maxscroll*1.0-minScroll*1.0 into scrollRange
  5.   put scrollRange/(maxPos1-minPos1) into scrollRatio
  6.   put max(integer((maxPos1-minPos1)/scrollRange),1) into sliderRatio
  7.   --repeat while the mouseDown
  8.     set the locH of sprite KNOB1 = max( minPos1, min( (the locH of sprite KNOB1 + sliderRatio) , maxPos1 ) )
  9.     set refVal = getQVal(the locH of sprite KNOB1,scrollRange,scrollRatio,minPos1)
  10.     set the text of cast "whichq" = string(integer(refVal))&&"of"&&gNumQs
  11.     updateStage
  12.   --end repeat
  13.   aQuestion integer(refVal)
  14. end
  15. --alert "next q"